home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / COMM / BBS / RISCBBS / !RiscBBS / Menus / Filebase / Upload < prev    next >
Text File  |  1992-02-24  |  486b  |  28 lines
  1. {
  2.  report `Uploading`
  3.  
  4.  defopt Q= `Quit upload` 10 ``
  5.    menu Filebase.Main
  6.  endopt
  7.  
  8.  defopt X= `Xmodem` 10 ``
  9.    f_receive `X C`
  10.    menu Filebase.Main
  11.  endopt
  12.  
  13.  defopt Y= `Ymodem` 10 ``
  14.    f_receive `Y`
  15.    menu Filebase.Main
  16.  endopt
  17.  
  18.  attr 0 7 
  19. }
  20. {attr 4 3}  -- Upload Transfer Protocols --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  21.  
  22.      [{fg 1}X{fg 7}]modem (smart)
  23.      [{fg 1}Y{fg 7}]modem (batch)
  24.  
  25.      [{fg 1}Q{fg 7}]uit upload
  26.  
  27.  {show <RiscBBS$Dir>.BBS.Select eof}
  28.